home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / zcommbar.zip / PURSUIT.T < prev    next >
Text File  |  1987-12-22  |  3KB  |  52 lines

  1. pursuit     cls;lput "Calling Pursuit  -  ";ena -7e;speed 1200
  2.             233-7104   ::Put your PC-Pursuit phone number here
  3.             pat 1i TELENET;while !1 put "\r" wait -f1
  4.             pat 1i "TERMINAL=";wait;put "D1\r";pat 1i @;wait; if !1 o fail
  5.             goto main2
  6.  
  7. city
  8. main2:    cls;display nlmode nooverstrike;pH0
  9.         lput "               ╔═══════════════════════════════════════════╗\n"
  10.         lput "               ║  Area Code  │         City                ║\n"
  11.         lput "               ╠═══════════════════════════════════════════╣\n"
  12.         lput "               ║ 201 - Newark         216 - Cleveland      ║\n"
  13.         lput "               ║ 202 - Washington     305 - Miami          ║\n"
  14.         lput "               ║ 206 - Seattle        408 - San Jose       ║\n"
  15.         lput "               ║ 212 - New York City  414 - Milwaukee      ║\n"
  16.         lput "               ║ 213 - Los Angeles    503 - Portland       ║\n"
  17.         lput "               ║ 214 - Dallas         602 - Phoenix        ║\n"
  18.         lput "               ║ 215 - Philadelphia   612 - Minneapolis    ║\n"
  19.         lput "               ║ 303 - Denver         801 - Salt Lake City ║\n"
  20.         lput "               ║ 312 - Chicago        813 - Tampa          ║\n"
  21.         lput "               ║ 313 - Detroit        818 - Glendale       ║\n"
  22.         lput "               ║ 404 - Atlanta        919 - Res. Tri. Park ║\n"
  23.         lput "               ║ 415 - San Fransisco                       ║\n"
  24.         lput "               ║ 617 - Boston                              ║\n"
  25.         lput "               ║ 713 - Houston         x  - HANGUP         ║\n"
  26.         lput "               ╠═══════════════════════════════════════════╣\n"
  27.         lput "               ║     Enter Area Code of City --> ___       ║\n"
  28.         lput "               ╚═══════════════════════════════════════════╝\n"
  29.         acceptl3 s9 "\E[19;50H";cls;display nonlmode
  30.         if is9,x put "hangup\r";sleep 20;fail
  31.         goto cdial
  32.  
  33. cdial:   pat 1 CONNECT;pat 2l BUSY;pat 3l "?"
  34.          ::In the next lines put your ID and Password in place of XXX YYY
  35.          put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
  36.          if 1 goto onit
  37.          put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
  38.          if 1 goto onit
  39.          put "C DIAL\&%s9\&/12,XXXXXXXXXXXX,YYYYYYYY\r" wait -f8
  40.          if 1 goto onit
  41.          pH1;echo "New City?";if y goto main2
  42.          pH0;cls;goto cdial
  43.  
  44. onit:   ena -8g;cls;put "@\r\336\Set? 1:0,5:1,7:8\r";pat 1i "@";wait;put "cont\r"
  45.         pat 1i "OK";pat 2i *
  46.         while n put "\336\ATZ\r"  wait -f3
  47.         if 1 while !2 put \5\r wait -f3
  48.         call .%s9.t
  49.  
  50.  
  51.  
  52.